home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Encyclopedia 1998 / Epic Interactive Encyclopedia, The - 1998 Edition (1998)(Epic Marketing).iso / Menufiles / scripts / makehd_index.script < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.2 KB  |  42 lines
  1. ; This script updates the HD index file
  2. ; It will be called every time new files are added (subjects)
  3.  
  4. ; Check to see if the index file exists, if so delete it!
  5. ;IF EXISTS Epic_Encyclopedia:Menufiles/IndexFiles/HD_Index.txt
  6. ;   Delete >NIL: Epic_Encyclopedia:Menufiles/IndexFiles/HD_Index.txt
  7. ;ENDIF
  8.  
  9. ;Do a directory of each of the directories...
  10. List EpicData:A/ NODATES QUICK NOHEAD DIRS >T:TempIndex_HD
  11. List EpicData:B/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  12. List EpicData:C/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  13. List EpicData:D/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  14. List EpicData:E/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  15. List EpicData:F/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  16. List EpicData:G/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  17. List EpicData:H/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  18. List EpicData:I/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  19. List EpicData:J/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  20. List EpicData:K/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  21. List EpicData:L/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  22. List EpicData:M/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  23. List EpicData:N/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  24. List EpicData:O/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  25. List EpicData:P/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  26. List EpicData:Q/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  27. List EpicData:R/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  28. List EpicData:S/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  29. List EpicData:T/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  30. List EpicData:U/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  31. List EpicData:V/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  32. List EpicData:W/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  33. List EpicData:X/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  34. List EpicData:Y/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  35. List EpicData:Z/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  36. List EpicData:0/ NODATES QUICK NOHEAD DIRS >>T:TempIndex_HD
  37.  
  38. ;Now copy the HD_Index file to EpicData:IndexFiles/
  39. Copy T:TempIndex_HD EpicData:IndexFiles/HD_Index.txt
  40. Echo "HD_Index_Search.txt - Search version" >EpicData:IndexFiles/HD_Index_Search.txt
  41. Type T:TempIndex_HD >>EpicData:IndexFiles/HD_Index_Search.txt
  42. Delete >NIL: T:TempIndex_HD